home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT RAS Options 1.xpl < prev    next >
Text File  |  2002-09-12  |  3KB  |  93 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Network\RAS & DUN"
  5. "NAME"="Advanced RAS Options"
  6. "VERSION"="1.42"
  7. "OSVERSION"="0101011"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Keep RAS sessions alive after log off"
  10. "TEXT 2"="Allow RAS dial-in access"
  11. "TEXT 3"="Enable saving RAS/DUN Passwords"
  12. "--old.TEXT 4"="Log every connection that is made"
  13. "DESCRIPTION 1"="The first options makes sure that the connection via RAS isn't killed when you log off. This option is useful ONLY if your computer is a RAS-gateway to other networks."
  14. "DESCRIPTION 2"="The second option can be used to disabled RAS dial-in access to this machine alltogether."
  15. "DESCRIPTION 3"="Third option: The Windows Dial-Up Networking (DUN, RAS) program allows you to save a user name and password for each dial-up connection. While this is convenient, it can be very insecure if your PC or Laptop ever gets stolen! By enabling this option, DUN will forget every password that was saved and will not allow any user to save the password."
  16. "--old.DESCRIPTION 4"=""Log": if this option is enabled, each RAS connection will be logged to the file %systemroot%/system32/RAS/device.log"
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="1.35 => Keep Ras option FIXED by Cat In Boots. Contact E-Mail: kuznetsk@hotmail.ru "
  21. "COMMENT 2"="1.42 => Log option removed, only available in NT 3.51 (http://support.microsoft.com/default.aspx?scid=kb;en-us;Q162694) - thanks to Marek M÷hling [moehling@ikos.de] for reporting this bug"
  22.  
  23.  
  24.  sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\KeepRasConnections"
  25. sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoDialIn"
  26. sP3="HKLM\SYSTEM\CurrentControlSet\Services\RasMan\Parameters\DisableSavePassword"
  27. '--sp4="HKLM\SYSTEM\CurrentControlSet\Services\RasMan\Parameters\Logging"
  28.  
  29. Sub Plugin_Initialize 
  30.     i=RegReadValue(sp)  
  31.     if i=1 then
  32.        SetUIElement 1,true
  33.     end if
  34.  
  35.     i=RegReadValue(sp2)  
  36.     if i=0 or IsEmpty(i) then
  37.        SetUIElement 2,true
  38.     end if
  39.  
  40.     i=RegReadValue(sp3)  
  41.     if i=0 or IsEmpty(i) then
  42.        SetUIElement 3,true
  43.     end if
  44.  
  45.     'i=RegReadValue(sp4)  
  46.     'if i=1 then
  47.     '   SetUIElement 4,true
  48.     'end if
  49. End Sub
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  b=GetUIElement(1)
  56.  if b=true then
  57.     Call RegWriteValue(sp,"1",1)
  58.  else
  59.   i=RegReadValue(sp)  
  60.   if not isempty(i) then
  61.      Call RegDeleteValue(sp)
  62.   end if
  63.  end if
  64.  
  65.  b=GetUIElement(2)
  66.  if b=true then
  67.     Call RegWriteValue(sp2,"0",2)
  68.  else
  69.     Call RegWriteValue(sp2,"1",2)
  70.  end if
  71.  
  72.  b=GetUIElement(3)
  73.  if b=true then
  74.     Call RegWriteValue(sp3,"0",2)
  75.  else
  76.     Call RegWriteValue(sp3,"1",2)
  77.  end if
  78.  
  79.  'b=GetUIElement(3)
  80.  'if b=true then
  81.  '   Call RegWriteValue(sp4,"1",2)
  82.  'else
  83.  '   Call RegWriteValue(sp4,"0",2)
  84.  'end if
  85.  
  86. End Sub
  87.  
  88. Sub Plugin_Terminate 
  89. End Sub
  90.  
  91.  
  92.  
  93.